home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / wmiadmin.asp < prev    next >
Encoding:
Text File  |  2003-02-21  |  13.8 KB  |  399 lines
  1. ∩╗┐<%@ Language=VBScript CODEPAGE=65001 %>
  2. <!--#include file="include/wmsLocStrings.inc"-->
  3. <!--#include file="include/wmsServerHash.inc"-->
  4. <!--#include file="include/wmsPlugins.inc"-->
  5. <!--#include file="include/wmsHeader.inc"-->
  6. <!--#include file="include/wmsPageBanner.inc"-->
  7. <!--#include file="include/wmsError.inc"-->
  8. <%
  9. '+-------------------------------------------------------------------------
  10. '
  11. '  Microsoft Windows Media
  12. '  Copyright (C) Microsoft Corporation. All rights reserved.
  13. '
  14. '  File:       WMIAdmin.asp
  15. '
  16. '  Contents:
  17. '
  18. '--------------------------------------------------------------------------
  19.  
  20. BeginErrorHandling
  21. ConnectToPlugin
  22. ConnectToPluginAdmin
  23.  
  24. on error resume next
  25.  
  26. const MAX_EVENT_CLASS=512
  27.  
  28. Dim loggingPlugin
  29. Dim rgBitfield
  30. Dim g_bGenerateSelectionArrayFromPlugin
  31. Dim dwTabIndex
  32. dwTabIndex = 1
  33.  
  34. g_bGenerateSelectionArrayFromPlugin = TRUE
  35.  
  36. Dim szOp
  37. szOp = GetFormStr( "submit" )
  38.  
  39. if( 0 = strComp( "all", qs( "enable" ), vbTextCompare ) ) then
  40.     g_bGenerateSelectionArrayFromPlugin = FALSE
  41.     rgBitfield = CDbl( 1023 )
  42.     
  43. elseif( 0 = strComp( "none", qs( "enable" ), vbTextCompare ) ) then
  44.     g_bGenerateSelectionArrayFromPlugin = FALSE
  45.     rgBitfield = CDbl( 0 )
  46. end if
  47.     
  48. if( 0 < Len( szOp ) ) then
  49.     on error resume next
  50.         
  51.     rgBitfield = BuildExposedEventsBitfield()
  52.     if( rgBitfield <> g_objPluginAdmin.ExposedEventClasses ) then
  53.         g_objPluginAdmin.ExposedEventClasses = rgBitfield
  54.     end if
  55.     
  56.     if ErrorDetected( "set" ) then
  57.         Err.Raise( -1 )
  58.     end if
  59.  
  60.     if 0 = Err.number then
  61.         if "" <> g_strEncodedPubPointName then
  62.             Response.Redirect "../pubpoints/pubpoint_props.asp?server=" & g_strQueryStringServer & "&ppID=" & g_strPubPointID & "&category=" & g_strCategory & "&pluginIndex=" & qs("pluginIndex")
  63.         else
  64.             Response.Redirect "../server_props.asp?server=" & g_strQueryStringServer & "&category=" & g_strCategory & "&pluginIndex=" & qs("pluginIndex")
  65.         end if
  66.     end if
  67.  
  68. end if
  69.  
  70. '//////////////////////////////////////////////////////////////////////////
  71. function LookUpBitfieldEventMaskByEventName( strName )
  72.  
  73.     if( 0 = StrComp( strName, L_CLIENT_TEXT ) ) then
  74.         LookUpBitfieldEventMaskByEventName = 1
  75.     elseif( 0 = StrComp( strName, L_SERVEREVENTS_TEXT ) ) then
  76.         LookUpBitfieldEventMaskByEventName = 2
  77.     elseif( 0 = StrComp( strName, L_PUBLISHINGPOINT_TEXT ) ) then
  78.         LookUpBitfieldEventMaskByEventName = 4
  79.     elseif( 0 = StrComp( strName, L_SPLIMIT_TEXT ) ) then
  80.         LookUpBitfieldEventMaskByEventName = 8
  81.     elseif( 0 = StrComp( strName, L_PLUGIN_TEXT ) ) then
  82.         LookUpBitfieldEventMaskByEventName = 32
  83.     elseif( 0 = StrComp( strName, L_SPCACHE_TEXT ) ) then
  84.         LookUpBitfieldEventMaskByEventName = 64
  85.     elseif( 0 = StrComp( strName, L_PLAYLIST_TEXT ) ) then
  86.         LookUpBitfieldEventMaskByEventName = 128
  87.     else
  88.         LookUpBitfieldEventMaskByEventName = 0
  89.     end if
  90.     
  91. end function
  92.  
  93.  
  94. '//////////////////////////////////////////////////////////////////////////
  95. function LookUpWMIEventByID( dwID )
  96.  
  97.     if( dwID = 0 ) then
  98.         LookUpWMIEventByID = L_UNKNOWN_TEXT
  99.     elseif( dwID = 1 ) then
  100.         LookUpWMIEventByID = L_CLIENT_TEXT
  101.     elseif( dwID = 2 ) then
  102.         LookUpWMIEventByID = L_SERVEREVENTS_TEXT
  103.     elseif( dwID = 4 ) then
  104.         LookUpWMIEventByID = L_PUBLISHINGPOINT_TEXT
  105.     elseif( dwID = 8 ) then
  106.         LookUpWMIEventByID = L_SPLIMIT_TEXT
  107.     elseif( dwID = 16 ) then
  108.         LookUpWMIEventByID = "" 'L_LIMITHIT_TEXT
  109.     elseif( dwID = 32 ) then
  110.         LookUpWMIEventByID = L_PLUGIN_TEXT
  111.     elseif( dwID = 64 ) then
  112.         LookUpWMIEventByID = L_SPCACHE_TEXT
  113.     elseif( dwID = 128 ) then
  114.         LookUpWMIEventByID = L_PLAYLIST_TEXT
  115.     elseif( dwID = 256 ) then
  116.         LookUpWMIEventByID = ""
  117.     elseif( dwID = 512 ) then
  118.         LookUpWMIEventByID = 0
  119.     else
  120.         LookUpWMIEventByID = L_ERROR_TEXT
  121.         Response.Write( L_ERROR_TEXT )
  122.     end if
  123.     
  124. End Function
  125.  
  126.  
  127. '//////////////////////////////////////////////////////////////////////////
  128. Sub BuildOrderedCheckboxList( strEventName )
  129.  
  130.     Dim dwEventID
  131.  
  132.     if( TRUE = g_bGenerateSelectionArrayFromPlugin ) then
  133.         rgBitfield = g_objPluginAdmin.ExposedEventClasses
  134.     end if
  135.  
  136.     dwEventID = LookUpBitfieldEventMaskByEventName( strEventName )
  137.  
  138.     %>
  139.                 <div <%
  140.                 if g_bNetscape then %>
  141.                      title="<%= RemoveDangerousCharacters( LookupHelpTextByID( dwEventID ) ) %>"<%
  142.                 else %>
  143.                      onmousemove="this.style.color='blue'" 
  144.                      onMouseOver="ShowText(<%= dwEventID %>),this.style.color='blue'" 
  145.                      onMouseOut="HideText(<%= dwEventID %>),this.style.color='black'" <%
  146.                 end if %>
  147.                      class="defaultcursor" >
  148.                     <input type="checkbox" 
  149.                            name="<%= RemoveDangerousCharacters( strEventName ) %>" 
  150.                            id="checkbox<%= dwEventID %>"<%
  151.                            iBitfiend = log( dwEventID )
  152.                            if ( 0 <> ( rgBitfield and dwEventID ) ) then 
  153.                             Response.Write( " checked " )
  154.                            end if %>
  155.                            tabIndex=<%= dwTabIndex %><% dwTabIndex = dwTabIndex + 1 %>
  156.                            >
  157.                     <label for="checkbox<%= dwEventID %>" ><%= strEventName %></label>
  158.                 </div><%
  159. End Sub
  160.  
  161. '//////////////////////////////////////////////////////////////////////////
  162. function BuildExposedEventsBitfield()
  163.     Dim rgBitfield
  164.     Dim iCount
  165.  
  166.     iCount = 1
  167.     rgBitfieldRetVal = 0
  168.     
  169.      Do While iCount <= MAX_EVENT_CLASS
  170.         if( "" <> LookUpWMIEventByID( iCount ) ) then
  171.             if ( 0 = StrComp( "on", trim( SafeUnescape( GetFormStr( CStr( LookUpWMIEventByID( iCount ) ) ) ) ) ) ) then
  172.                 rgBitfieldRetVal = rgBitfieldRetVal or iCount
  173.             end if
  174.         end if
  175.         iCount = iCount * 2        
  176.     Loop
  177.  
  178.     BuildExposedEventsBitfield = rgBitfieldRetVal
  179.  
  180. end function
  181.  
  182. WriteHTMLHeader( g_strDecodedServerName ) 
  183. %>
  184. <link rel="stylesheet" type="text/css" href="<%= Session( "cssName" ) %>">
  185. <% WritePluginJSUtils %>
  186. <script language="javascript">
  187. <!--
  188. /*@cc_on @*/
  189. //////////////////////////////////////////////////////////////////////////
  190. function SetAllCheckboxes( bChecked )
  191. {
  192.     <% jsTRY %>
  193. <%
  194.     Dim dwEventID
  195.     dwEventID = LookUpBitfieldEventMaskByEventName( L_SERVEREVENTS_TEXT )
  196. %>
  197.     document.pluginForm[ "checkbox<%= dwEventID %>" ].checked = bChecked;<%
  198.     dwEventID = LookUpBitfieldEventMaskByEventName( L_CLIENT_TEXT )
  199. %>
  200.     document.pluginForm[ "checkbox<%= dwEventID %>" ].checked = bChecked;<%
  201.     dwEventID = LookUpBitfieldEventMaskByEventName( L_SPLIMIT_TEXT )
  202. %>
  203.     document.pluginForm[ "checkbox<%= dwEventID %>" ].checked = bChecked;<%
  204.     dwEventID = LookUpBitfieldEventMaskByEventName( L_PLAYLIST_TEXT )
  205. %>
  206.     document.pluginForm[ "checkbox<%= dwEventID %>" ].checked = bChecked;<%
  207.     dwEventID = LookUpBitfieldEventMaskByEventName( L_SPCACHE_TEXT )
  208. %>
  209.     document.pluginForm[ "checkbox<%= dwEventID %>" ].checked = bChecked;<%
  210.     dwEventID = LookUpBitfieldEventMaskByEventName( L_PUBLISHINGPOINT_TEXT )
  211. %>
  212.     document.pluginForm[ "checkbox<%= dwEventID %>" ].checked = bChecked;<%
  213.     dwEventID = LookUpBitfieldEventMaskByEventName( L_PLUGIN_TEXT )
  214. %>
  215.     document.pluginForm[ "checkbox<%= dwEventID %>" ].checked = bChecked;
  216.     <% jsCATCH %>
  217. }
  218.  
  219. //////////////////////////////////////////////////////////////////////////
  220. function ToggleCheckbox( szCheckboxName )
  221. {
  222.     <% jsTRY %>
  223.     document.pluginForm[ szCheckboxName ].checked = ! document.pluginForm[ szCheckboxName ].checked;
  224.     document.pluginForm[ szCheckboxName ].focus();
  225.     <% jsCATCH %>
  226. }
  227.  
  228. //////////////////////////////////////////////////////////////////////////
  229. function ShowText( dwBitfieldEventMask )
  230. {
  231.     <% jsTRY %>
  232.     <% if FALSE = g_bNetscape then %>
  233.     HelpText.innerText = LookUpWMIHelpTextByBitfieldMask( dwBitfieldEventMask );
  234.     HelpText.style.color='black';
  235.     HelpArea.style.background = document.body.style.background;
  236.     <% end if %>
  237.     <% jsCATCH %>
  238. }
  239.  
  240. <%
  241. Function LookupHelpTextByID( dwEventID )
  242.     Select Case( dwEventID )
  243.         case 0
  244.             LookupHelpTextByID = L_INTERNALERROR_TEXT
  245.         case 1
  246.             LookupHelpTextByID = L_REPORTCLIENTEVENTSHELP_TEXT
  247.         case 2
  248.             LookupHelpTextByID = L_REPORTSERVEREVENTSHELP_TEXT
  249.         case 4
  250.             LookupHelpTextByID = L_REPORTPPEVENTSHELP_TEXT
  251.         case 8
  252.             LookupHelpTextByID = L_REPORTLIMITEVENTSHELP_TEXT
  253.         case 32
  254.             LookupHelpTextByID = L_REPORTPLUGINEVENTSHELP_TEXT
  255.         case 64
  256.             LookupHelpTextByID = L_REPORTCACHEEVENTSHELP_TEXT
  257.         case 128
  258.             LookupHelpTextByID = L_REPORTPLAYLISTEVENTSHELP_TEXT
  259.         case else
  260.             LookupHelpTextByID = L_INTERNALERROR_TEXT
  261.     End Select
  262. End Function
  263. %>
  264.  
  265. //////////////////////////////////////////////////////////////////////////
  266. function LookUpWMIHelpTextByBitfieldMask( dwEventMask )
  267. {
  268.     <% jsTRY %>
  269.     switch( dwEventMask )
  270.     {
  271.         case 0:
  272.           return( "<%= RemoveDangerousCharacters( L_INTERNALERROR_TEXT ) %>" );
  273.           break;
  274.         case 1:
  275.           return ("<%= RemoveDangerousCharacters( L_REPORTCLIENTEVENTSHELP_TEXT ) %>" );
  276.           break;
  277.         case 2:
  278.           return ("<%= RemoveDangerousCharacters( L_REPORTSERVEREVENTSHELP_TEXT ) %>" );
  279.           break;
  280.         case 4:
  281.           return ("<%= RemoveDangerousCharacters( L_REPORTPPEVENTSHELP_TEXT ) %>" );
  282.           break;
  283.         case 8:
  284.           return ("<%= RemoveDangerousCharacters( L_REPORTLIMITEVENTSHELP_TEXT ) %>" );
  285.           break;
  286.         case 16:
  287.           return ("<%= RemoveDangerousCharacters( L_INTERNALERROR_TEXT ) %>");
  288.           break;
  289.         case 32:
  290.           return ("<%= RemoveDangerousCharacters( L_REPORTPLUGINEVENTSHELP_TEXT ) %>" );
  291.           break;
  292.         case 64:
  293.           return ("<%= RemoveDangerousCharacters( L_REPORTCACHEEVENTSHELP_TEXT ) %>" );
  294.           break;
  295.         case 128:
  296.           return ("<%= RemoveDangerousCharacters( L_REPORTPLAYLISTEVENTSHELP_TEXT ) %>" );
  297.           break;
  298.         case 512:
  299.           return ("" );
  300.           break;
  301.         default:
  302.           return ("?" );
  303.           break;
  304.     }
  305.     return ("?" );
  306.     <% jsCATCH %>
  307. }
  308.  
  309. //////////////////////////////////////////////////////////////////////////
  310. function HideText()
  311. {
  312.     <% jsTRY %>
  313.     <% if brMSIE <> g_dwBrowserType then %>
  314.     HelpText.innerText = "<%= L_WMIHOVERHELP_TEXT %>";
  315.     HelpArea.style.background = document.body.style.background;
  316.     <% end if %>
  317.     <% jsCATCH %>
  318. }
  319. -->
  320. </script>
  321. </head>
  322. <body class="pluginBody" oncontextmenu="JavaScript:event.cancelBubble=true;return false;">
  323. <% DrawPluginBanner %>
  324. <table width="100%">
  325.   <tr>
  326.     <td valign=top"">
  327.  
  328.         <% WriteStdPluginForm %>
  329.         
  330.         <table cellpadding="5" class="propgroupbox">
  331.         <caption align="left" class="pluginGroupHeader"><%= Server.HTMLEncode( L_CLASSESCOLON_TEXT ) %></caption>
  332.         <tr>
  333.             <td valign="top" class="normal">
  334.                 <%= Server.HTMLEncode( L_WMIHELP_TEXT ) %>
  335.             </td>
  336.         </tr>
  337.         <tr>
  338.             <td>
  339.             <%
  340.                 BuildOrderedCheckboxList( L_SERVEREVENTS_TEXT )
  341.                 BuildOrderedCheckboxList( L_CLIENT_TEXT )
  342.                 BuildOrderedCheckboxList( L_SPLIMIT_TEXT )
  343.                 BuildOrderedCheckboxList( L_PLAYLIST_TEXT )
  344.                 BuildOrderedCheckboxList( L_SPCACHE_TEXT )
  345.                 BuildOrderedCheckboxList( L_PUBLISHINGPOINT_TEXT )
  346.                 BuildOrderedCheckboxList( L_PLUGIN_TEXT )
  347.             %>
  348.             </td>
  349.             
  350.             <td width="36">     </td>
  351.             
  352.             <td valign=middle align="left">
  353.                 <input type="button" align="baseline" name="all" tabIndex=<%= dwTabIndex %><% dwTabIndex = dwTabIndex + 1 %> onClick="JavaScript:SetAllCheckboxes( true );" value="<%= Server.HTMLEncode( L_SELECTALLBUTTON_TEXT ) %>" tabindex=1><p>
  354.                 <input type="button" align="baseline" name="none" tabIndex=<%= dwTabIndex %><% dwTabIndex = dwTabIndex + 1 %> onClick="JavaScript:SetAllCheckboxes( false );" value="<%= Server.HTMLEncode( L_SELECTNONEBUTTON_TEXT ) %>" tabindex=2>
  355.             </td>
  356.           </tr>
  357.         </table>
  358.         <br>
  359.     </td>
  360.   </tr>
  361.   <tr>
  362.     <td>
  363.         <input type="submit" align="baseline" name="ok" tabIndex=<%= dwTabIndex %><% dwTabIndex = dwTabIndex + 1 %> value="<%= Server.HTMLEncode( L_OKAYBUTTON_TEXT ) %>"> 
  364.         <input type="button" align="baseline" name="cancel" onclick="JavaScript:Cancel();" tabIndex=<%= dwTabIndex %><% dwTabIndex = dwTabIndex + 1 %> value="<%= Server.HTMLEncode( L_CANCELBUTTONSPACED_TEXT ) %>"> 
  365.         <input type="button" align="baseline"name="help" onclick="JavaScript:DoPluginHelp( '<%= H_WMIPLUGINHELPTOPIC %>' );" value="<%= Server.HTMLEncode( L_HELPBUTTONSPACED_TEXT ) %>" tabindex=<%= dwTabIndex %><% dwTabIndex = dwTabIndex + 1 %>>
  366.         <p><p>
  367.     </td>
  368.   </tr>
  369.   <% if brMSIE = g_dwBrowserType then %>
  370.   <tr>
  371.     <td>
  372.         <div ID="HelpArea">
  373.         <table cellpadding="1" border=1 width=100% name=HelpTable class="propgroupbox">
  374.           <tr height=48>
  375.             <td valign="top">
  376.                 <div ID="HelpText" class=small><%= Server.HTMLEncode( L_WMIHOVERHELP_TEXT ) %></div>
  377.             </td>
  378.           </tr>
  379.           <tr>
  380.           </tr>
  381.         </table>
  382.         </div>
  383.     </td>
  384.   </tr>
  385.   <% end if %>  
  386. </table>
  387. </font>
  388. </form>
  389. </body>
  390. <% DrawStdFooter %>
  391. </html>
  392. <%
  393. LatchCurrentPage "plugins/WMIAdmin.asp", qs
  394. EndErrorHandling "WMIAdmin.asp" 
  395.  
  396. on error resume next
  397. PluginsASPCleanup
  398. %>
  399.